Attribute VB_Name = "Startup"
Option Explicit

Private gAssert As New LocalAssertions

Public Sub main()
Dim r As New Runner
r.setAssertions gAssert

r.run Sponsor

End Sub

Public Function assert() As LocalAssertions
Set assert = gAssert
End Function


